home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _FXECREN.PRG < prev    next >
Text File  |  1993-05-04  |  582b  |  42 lines
  1. PROCEDURE _FXEcREnv
  2.  
  3.   IF fxl_near
  4.     SET NEAR ON
  5.   ENDIF
  6.  
  7.   IF .NOT. fxl_exact
  8.     SET EXACT OFF
  9.   ENDIF
  10.  
  11.   IF fxl_escape
  12.     SET ESCAPE ON
  13.   ELSE
  14.     SET ESCAPE OFF
  15.   ENDIF
  16.  
  17.   IF fxl_safety
  18.     SET SAFETY ON
  19.   ENDIF
  20.  
  21.   IF fxl_fields
  22.     SET FIELDS ON
  23.   ENDIF
  24.  
  25.   IF fxl_trap
  26.     SET TRAP ON
  27.   ELSE
  28.     SET TRAP OFF
  29.   ENDIF
  30.  
  31.   SET CATALOG ON
  32.  
  33.   IF _TalkMode( fxl_talk )
  34.   ENDIF
  35.  
  36.   RELEASE fxl_escape, fxl_exact, fxl_fields, fxl_near, fxl_safety, fxc_dbtrap, ;
  37.           fxl_isscb, fxc_mastdb, fxl_talk, fxl_trap
  38.  
  39. RETURN
  40. *-- EOP: _FXEcREnv
  41.  
  42.